object frmAlarm: TfrmAlarm Left = 639 Top = 401 ActiveControl = edtAlarmDescription BorderStyle = bsDialog Caption = 'Quick Alarm' ClientHeight = 277 ClientWidth = 347 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 7 Top = 232 Width = 82 Height = 13 Caption = 'Alarm Description' end object GroupBox1: TGroupBox Left = 7 Top = 6 Width = 331 Height = 152 Caption = ' Timer ' TabOrder = 0 object radTimer1: TRadioButton Tag = 1 Left = 9 Top = 18 Width = 80 Height = 17 Caption = '1 minute' TabOrder = 0 OnClick = radTimer1Click end object radTimer5: TRadioButton Tag = 5 Left = 9 Top = 42 Width = 80 Height = 17 Caption = '5 minutes' TabOrder = 1 OnClick = radTimer1Click end object radTimer10: TRadioButton Tag = 10 Left = 9 Top = 67 Width = 80 Height = 17 Caption = '10 minutes' TabOrder = 2 OnClick = radTimer1Click end object radTimer15: TRadioButton Tag = 15 Left = 9 Top = 91 Width = 80 Height = 17 Caption = '15 minutes' TabOrder = 3 OnClick = radTimer1Click end object radTimer20: TRadioButton Tag = 20 Left = 90 Top = 18 Width = 80 Height = 17 Caption = '20 minutes' TabOrder = 4 OnClick = radTimer1Click end object radTimer30: TRadioButton Tag = 30 Left = 90 Top = 42 Width = 80 Height = 17 Caption = '30 minutes' TabOrder = 5 OnClick = radTimer1Click end object radTimer45: TRadioButton Tag = 45 Left = 90 Top = 67 Width = 80 Height = 17 Caption = '45 minutes' TabOrder = 6 OnClick = radTimer1Click end object radTimer60: TRadioButton Tag = 60 Left = 90 Top = 91 Width = 80 Height = 17 Caption = '1 hour' Checked = True TabOrder = 7 TabStop = True OnClick = radTimer1Click end object radTimer120: TRadioButton Tag = 120 Left = 171 Top = 42 Width = 80 Height = 17 Caption = '2 hours' TabOrder = 8 OnClick = radTimer1Click end object radTimer90: TRadioButton Tag = 90 Left = 171 Top = 18 Width = 80 Height = 17 Caption = '90 minutes' TabOrder = 9 OnClick = radTimer1Click end object radTimer180: TRadioButton Tag = 180 Left = 171 Top = 67 Width = 80 Height = 17 Caption = '3 hours' TabOrder = 10 OnClick = radTimer1Click end object RadioButton1: TRadioButton Tag = 240 Left = 171 Top = 91 Width = 80 Height = 17 Caption = '4 hours' TabOrder = 11 OnClick = radTimer1Click end object RadioButton2: TRadioButton Tag = 300 Left = 255 Top = 18 Width = 60 Height = 17 Caption = '5 hours' TabOrder = 12 OnClick = radTimer1Click end object RadioButton3: TRadioButton Tag = 360 Left = 255 Top = 42 Width = 60 Height = 17 Caption = '6 hours' TabOrder = 13 OnClick = radTimer1Click end object RadioButton4: TRadioButton Tag = 420 Left = 255 Top = 67 Width = 60 Height = 17 Caption = '7 hours' TabOrder = 14 OnClick = radTimer1Click end object RadioButton5: TRadioButton Tag = 480 Left = 255 Top = 91 Width = 60 Height = 17 Caption = '8 hours' TabOrder = 15 OnClick = radTimer1Click end object radTimerCustom: TRadioButton Left = 9 Top = 121 Width = 60 Height = 17 Caption = 'Custom' TabOrder = 16 OnClick = radTimerCustomClick end object edtTimerCustom: TEdit Left = 75 Top = 118 Width = 38 Height = 21 Enabled = False TabOrder = 17 OnChange = edtTimerCustomChange end object btnTimerOK: TButton Left = 276 Top = 121 Width = 46 Height = 25 Caption = 'OK' Default = True TabOrder = 18 OnClick = btnTimerOKClick end end object edtAlarmDescription: TEdit Left = 7 Top = 246 Width = 332 Height = 21 TabOrder = 1 end object GroupBox2: TGroupBox Left = 7 Top = 164 Width = 254 Height = 56 Caption = ' Today Time ' TabOrder = 2 object Label2: TLabel Left = 11 Top = 24 Width = 29 Height = 13 Caption = 'Hour :' end object Label3: TLabel Left = 101 Top = 24 Width = 43 Height = 13 Caption = 'Minutes :' end object edtOre: TEdit Left = 52 Top = 21 Width = 24 Height = 21 TabOrder = 0 Text = '0' end object UpDown1: TUpDown Left = 76 Top = 21 Width = 15 Height = 21 Associate = edtOre Min = 0 Max = 23 Position = 0 TabOrder = 1 Wrap = False end object edtMinuti: TEdit Left = 147 Top = 21 Width = 24 Height = 21 TabOrder = 2 Text = '0' end object UpDown2: TUpDown Left = 171 Top = 21 Width = 15 Height = 21 Associate = edtMinuti Min = 0 Max = 59 Position = 0 TabOrder = 3 Wrap = False end object btnTodayTimeOK: TButton Left = 200 Top = 20 Width = 46 Height = 25 Caption = 'OK' TabOrder = 4 OnClick = btnTodayTimeOKClick end end object btnCancel: TButton Left = 283 Top = 184 Width = 46 Height = 25 Caption = 'Cancel' TabOrder = 3 OnClick = btnCancelClick end end